VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.ocx"
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmReportConditioner 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Report Criteria"
   ClientHeight    =   4770
   ClientLeft      =   -45
   ClientTop       =   60
   ClientWidth     =   6795
   Icon            =   "frmReportConditioner.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4770
   ScaleWidth      =   6795
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame6 
      Caption         =   "Company Range"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   120
      TabIndex        =   51
      Top             =   2640
      Visible         =   0   'False
      Width           =   2295
      Begin VB.CommandButton cmdCompFrom 
         Caption         =   "..."
         Height          =   285
         Left            =   1800
         TabIndex        =   53
         Top             =   360
         Width           =   255
      End
      Begin VB.CommandButton cmdCompTo 
         Caption         =   "..."
         Height          =   285
         Left            =   1800
         TabIndex        =   52
         Top             =   660
         Width           =   255
      End
      Begin ITGControls.ITGCommandButton ITGCommandButton2 
         Height          =   255
         Left            =   1800
         TabIndex        =   54
         Top             =   360
         Width           =   255
         _ExtentX        =   450
         _ExtentY        =   450
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "..."
      End
      Begin ITGControls.ITGTextBox txtITGCompFrom 
         Height          =   285
         Left            =   240
         TabIndex        =   55
         Top             =   360
         Width           =   1515
         _ExtentX        =   2461
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Label           =   "From"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   500
         TextBoxWidth    =   955
      End
      Begin ITGControls.ITGTextBox txtITGCompTo 
         Height          =   285
         Left            =   240
         TabIndex        =   56
         Top             =   660
         Width           =   1515
         _ExtentX        =   2461
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Label           =   "To"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   500
         TextBoxWidth    =   955
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Days Range"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   120
      TabIndex        =   32
      Top             =   2640
      Width           =   2295
      Begin ITGControls.ITGTextBox ITGDaysFrom 
         Height          =   285
         Left            =   180
         TabIndex        =   33
         Top             =   300
         Width           =   1935
         _ExtentX        =   3201
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         Label           =   "Days From"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   900
         TextBoxWidth    =   975
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox ITGDaysTo 
         Height          =   285
         Left            =   180
         TabIndex        =   34
         Top             =   660
         Width           =   1935
         _ExtentX        =   3201
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         Label           =   "Days To"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   900
         TextBoxWidth    =   975
         Enabled         =   0   'False
      End
   End
   Begin VB.Frame frameCust 
      Caption         =   "Customers"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   2520
      TabIndex        =   28
      Top             =   2640
      Width           =   4215
      Begin VB.TextBox txtCode 
         Height          =   315
         Left            =   120
         TabIndex        =   31
         Top             =   240
         Width           =   1380
      End
      Begin VB.CommandButton cmdPickCode 
         Height          =   300
         Left            =   1545
         Picture         =   "frmReportConditioner.frx":0CCA
         Style           =   1  'Graphical
         TabIndex        =   30
         Top             =   240
         Width           =   315
      End
      Begin VB.TextBox txtName 
         Enabled         =   0   'False
         Height          =   315
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   660
         Width           =   4005
      End
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   5520
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdDefault 
      Caption         =   "Default"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdExecute 
      Caption         =   "Execute"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Frame Frame2 
      Caption         =   "Data Range"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   120
      TabIndex        =   5
      Top             =   1440
      Width           =   2295
      Begin VB.CommandButton cmdDataFrom 
         Caption         =   "..."
         Height          =   285
         Left            =   1800
         TabIndex        =   13
         Top             =   360
         Width           =   255
      End
      Begin ITGControls.ITGCommandButton ITGCommandButton1 
         Height          =   255
         Left            =   1800
         TabIndex        =   12
         Top             =   360
         Width           =   255
         _ExtentX        =   450
         _ExtentY        =   450
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "..."
      End
      Begin VB.CommandButton cmdDataTo 
         Caption         =   "..."
         Height          =   285
         Left            =   1800
         TabIndex        =   8
         Top             =   660
         Width           =   255
      End
      Begin ITGControls.ITGTextBox txtITGDataFrom 
         Height          =   285
         Left            =   240
         TabIndex        =   2
         Top             =   360
         Width           =   1515
         _ExtentX        =   2461
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Label           =   "From"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   500
         TextBoxWidth    =   955
      End
      Begin ITGControls.ITGTextBox txtITGDataTo 
         Height          =   285
         Left            =   240
         TabIndex        =   3
         Top             =   660
         Width           =   1515
         _ExtentX        =   2461
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Label           =   "To"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   500
         TextBoxWidth    =   955
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Date Range"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   2295
      Begin ITGControls.ITGLabel ITGLabel1 
         Height          =   285
         Left            =   240
         TabIndex        =   6
         Top             =   300
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   503
         Caption         =   "From"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGDateFrom 
         Height          =   285
         Left            =   720
         TabIndex        =   0
         Top             =   290
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
      End
      Begin ITGControls.ITGDateBox dtITGDateTo 
         Height          =   285
         Left            =   720
         TabIndex        =   1
         Top             =   650
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
      End
      Begin ITGControls.ITGLabel ITGLabel2 
         Height          =   285
         Left            =   240
         TabIndex        =   7
         Top             =   660
         Width           =   255
         _ExtentX        =   450
         _ExtentY        =   503
         Caption         =   "To"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Frame Frame4 
      Height          =   2415
      Left            =   2520
      TabIndex        =   14
      Top             =   120
      Width           =   4215
      Begin VB.ComboBox cboPrint 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2160
         TabIndex        =   26
         Text            =   "Printer"
         Top             =   1500
         Width           =   1935
      End
      Begin VB.ComboBox cboFile 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2160
         TabIndex        =   25
         Top             =   1860
         Width           =   1935
      End
      Begin VB.ComboBox cboITGFilterBy 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   24
         Top             =   1440
         Width           =   1575
      End
      Begin VB.OptionButton optDetailed 
         Caption         =   "Detailed Report"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   18
         Top             =   540
         Value           =   -1  'True
         Width           =   1575
      End
      Begin VB.OptionButton optSummary 
         Caption         =   "Summary Report"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   17
         Top             =   900
         Width           =   1575
      End
      Begin ITGControls.ITGTextBox ITGLeadTime 
         Height          =   285
         Left            =   2160
         TabIndex        =   15
         Top             =   480
         Width           =   1935
         _ExtentX        =   3201
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         Label           =   "Lead Time"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   900
         TextBoxWidth    =   975
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox ITGBuffer 
         Height          =   285
         Left            =   2160
         TabIndex        =   16
         Top             =   900
         Width           =   1935
         _ExtentX        =   3201
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "0"
         Label           =   "Buffer"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   900
         TextBoxWidth    =   975
         Enabled         =   0   'False
      End
      Begin MSComCtl2.UpDown ITGUpDown 
         Height          =   285
         Left            =   1410
         TabIndex        =   21
         Top             =   2040
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   503
         _Version        =   393216
         Value           =   30
         OrigLeft        =   4096
         OrigTop         =   2160
         OrigRight       =   4336
         OrigBottom      =   2445
         Increment       =   15
         Max             =   1000
         Min             =   30
         Wrap            =   -1  'True
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGTextBox txtITGInterval 
         Height          =   285
         Left            =   120
         TabIndex        =   22
         Top             =   2040
         Width           =   1335
         _ExtentX        =   2249
         _ExtentY        =   503
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   "30"
         Label           =   "ITGtext"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   0
         TextBoxWidth    =   1275
         Enabled         =   0   'False
      End
      Begin ITGControls.ITGLabel ITGLabel3 
         Height          =   285
         Left            =   2160
         TabIndex        =   27
         Top             =   1200
         Width           =   675
         _ExtentX        =   1191
         _ExtentY        =   503
         Caption         =   "Print To"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "Interval"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   23
         Top             =   1800
         Width           =   810
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "Filter"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   20
         Top             =   1200
         Width           =   435
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Report Type"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   19
         Top             =   240
         Width           =   1050
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Week Range"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2415
      Left            =   2520
      TabIndex        =   35
      Top             =   120
      Visible         =   0   'False
      Width           =   4215
      Begin ITGControls.ITGLabel ITGLabel4 
         Height          =   285
         Left            =   180
         TabIndex        =   36
         Top             =   315
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   503
         Caption         =   "Week 1"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGWeek1From 
         Height          =   285
         Left            =   960
         TabIndex        =   37
         Top             =   300
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGDateBox dtITGWeek1To 
         Height          =   285
         Left            =   2640
         TabIndex        =   38
         Top             =   300
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGLabel ITGLabel5 
         Height          =   285
         Left            =   180
         TabIndex        =   47
         Top             =   735
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   503
         Caption         =   "Week 2"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGWeek2From 
         Height          =   285
         Left            =   960
         TabIndex        =   39
         Top             =   720
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGDateBox dtITGWeek2To 
         Height          =   285
         Left            =   2640
         TabIndex        =   40
         Top             =   720
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGLabel ITGLabel6 
         Height          =   285
         Left            =   180
         TabIndex        =   48
         Top             =   1155
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   503
         Caption         =   "Week 3"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGWeek3From 
         Height          =   285
         Left            =   960
         TabIndex        =   41
         Top             =   1140
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGDateBox dtITGWeek3To 
         Height          =   285
         Left            =   2640
         TabIndex        =   42
         Top             =   1140
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGLabel ITGLabel7 
         Height          =   285
         Left            =   180
         TabIndex        =   49
         Top             =   1575
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   503
         Caption         =   "Week 4"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGWeek4From 
         Height          =   285
         Left            =   960
         TabIndex        =   43
         Top             =   1560
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGDateBox dtITGWeek4To 
         Height          =   285
         Left            =   2640
         TabIndex        =   44
         Top             =   1560
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGLabel ITGLabel8 
         Height          =   285
         Left            =   180
         TabIndex        =   50
         Top             =   1995
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   503
         Caption         =   "Week 5"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin ITGControls.ITGDateBox dtITGWeek5From 
         Height          =   285
         Left            =   960
         TabIndex        =   45
         Top             =   1980
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin ITGControls.ITGDateBox dtITGWeek5To 
         Height          =   285
         Left            =   2640
         TabIndex        =   46
         Top             =   1980
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   503
         BackColor       =   14745599
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Text            =   ""
         SendKeysTab     =   -1  'True
         Mandatory       =   -1  'True
         BackColor       =   14745599
      End
      Begin VB.Line Line5 
         BorderWidth     =   2
         X1              =   2340
         X2              =   2520
         Y1              =   2100
         Y2              =   2100
      End
      Begin VB.Line Line4 
         BorderWidth     =   2
         X1              =   2340
         X2              =   2520
         Y1              =   1680
         Y2              =   1680
      End
      Begin VB.Line Line3 
         BorderWidth     =   2
         X1              =   2340
         X2              =   2520
         Y1              =   1260
         Y2              =   1260
      End
      Begin VB.Line Line2 
         BorderWidth     =   2
         X1              =   2340
         X2              =   2520
         Y1              =   840
         Y2              =   840
      End
      Begin VB.Line Line1 
         BorderWidth     =   2
         X1              =   2340
         X2              =   2520
         Y1              =   420
         Y2              =   420
      End
   End
End
Attribute VB_Name = "frmReportConditioner"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

Dim oCallReport As New clsReport


'Object variables



Public sBit As String

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

'Release your Object
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next

    Me.Frame5.Visible = False
    Frame6.Visible = False
    cTypeReport = ""
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain

    
    
    
    Set frmReportConditioner = Nothing
    
    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
End Sub

'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

Public Sub TBFind()
    '**********
End Sub

Public Sub TBFindPrimary()
    '**********
End Sub

Private Sub Form_Load()
    

    Set FrmName = Me
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True, , , True
    BitVisible ITGLedgerMain.tbrMain, True
    
    FormCenter frmReportConditioner, ITGLedgerMain
    
    Set FrmName = Me
    Set oCallReport = New clsReport
    
    
    dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
    dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
    
    cCompany = COName
    
    
    If cReport = "Voucher_Journal_Transaction_Number" Or cReport = "Voucher_Journal_Date" _
        Or cReport = "Schedule_Accounts_Receivable" Or cReport = "Schedule_Accounts_Payable" _
        Or cReport = "Schedule_Cash" Or cReport = "Voucher_Journal_Company" Then
        frameCust.Caption = "Company"
        frameCust.Enabled = True
    End If
    
    If cReport = "ARAging" Or cReport = "ARAging_Division" Or _
       cReport = "APAging" Or cReport = "Product_Aging" Or _
       cReport = "PDC_Aging" Or cReport = "Inventory_Obsolete_Stocks" _
       Or cReport = "ARAging_Market_Segment" Then
        Me.optDetailed.Enabled = True
        Me.optSummary.Enabled = True
        Me.txtITGInterval.Enabled = True
        Me.txtITGInterval.Text = "30"
        Me.ITGUpDown.Enabled = True
        dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
        dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
        
    ElseIf cReport = "ARAgingCustomer" Then
        Me.optDetailed.Enabled = True
        Me.optSummary.Enabled = True
        Me.txtITGInterval.Enabled = True
        Me.txtITGInterval.Text = "30"
        Me.ITGUpDown.Enabled = True
        txtITGDataFrom.Text = RepName
        txtITGDataTo.Text = RepName
        dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
        dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
    
    ElseIf cReport = "YTD_Salesman_Summary" Then
        dtITGDateFrom.Text = "01/01/" & Format(Date, "yyyy")
        dtITGDateTo.Text = "12/31/" & Format(Date, "yyyy")
       
    ElseIf cReport = "Inventory_Overaged_Stocks" Then
        Me.Frame3.Enabled = True
        Me.ITGDaysFrom.Enabled = True
        Me.ITGDaysTo.Enabled = True
        Me.ITGDaysFrom = "270"
        Me.ITGDaysTo = "360"
    
    ElseIf cReport = "Customer_Credit_Balance" Then
        Me.cboITGFilterBy.Enabled = True
        LoadComboValues Me.cboITGFilterBy, "cDepartment", "Item", , "cDepartment"
    
    ElseIf cReport = "Inventory_WRR_Journal_Type" Then
        Me.cboITGFilterBy.Enabled = True
        Me.cboITGFilterBy.Clear
        Me.cboITGFilterBy.AddItem "Purchase"
        Me.cboITGFilterBy.AddItem "Production"
        Me.cboITGFilterBy.AddItem "Sales Return"
        Me.cboITGFilterBy.AddItem "Sample"
        Me.cboITGFilterBy.AddItem "Demo"
        Me.cboITGFilterBy.AddItem "For Replacement"
        Me.cboITGFilterBy.AddItem "Prod. Return"
        Me.cboITGFilterBy.AddItem "Consignment"
        Me.cboITGFilterBy.AddItem "Transfer"
        Me.cboITGFilterBy.AddItem "Others"
        dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
        dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
        
    ElseIf cReport = "Inventory_DR_Journal_Type" Then
        Me.cboITGFilterBy.Enabled = True
        Me.cboITGFilterBy.Clear
        Me.cboITGFilterBy.AddItem "Issues"
        Me.cboITGFilterBy.AddItem "Sales"
        Me.cboITGFilterBy.AddItem "Sample"
        Me.cboITGFilterBy.AddItem "Demo"
        Me.cboITGFilterBy.AddItem "Production-OS"
        Me.cboITGFilterBy.AddItem "Production-Int"
        Me.cboITGFilterBy.AddItem "Replacement"
        Me.cboITGFilterBy.AddItem "Consignment"
        Me.cboITGFilterBy.AddItem "Pruchase Return"
        Me.cboITGFilterBy.AddItem "Project"
        Me.cboITGFilterBy.AddItem "Transfer"
        Me.cboITGFilterBy.AddItem "Others"
        dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
        dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
        
    ElseIf cReport = "Trial_Balance" Then
            Me.txtITGDataFrom.Enabled = False
            Me.txtITGDataTo.Enabled = False
            Me.cmdDataFrom.Enabled = False
            Me.cmdDataTo.Enabled = False
            cboITGFilterBy.Enabled = True
            cboITGFilterBy.AddItem "Level 1"
            cboITGFilterBy.AddItem "Level 2"
            cboITGFilterBy.AddItem "Level 3"
            cboITGFilterBy.AddItem "Level 4"
            cboITGFilterBy.AddItem "Level 5"
            cboITGFilterBy.AddItem "Level 6"
            cboITGFilterBy.AddItem "Level 7"
            dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
            dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
            
    ElseIf cReport = "BalanceSheet" Or _
            cReport = "IncomeStatement" Then
           'cReport = "IncomeStatement" Or cReport = "GLActivity" Then
            Me.txtITGDataFrom.Enabled = False
            Me.txtITGDataTo.Enabled = False
            Me.cmdDataFrom.Enabled = False
            Me.cmdDataTo.Enabled = False
            dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
            dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
            
    ElseIf cReport = "PROTIA" Then
        Me.ITGLeadTime.Enabled = True
        Me.ITGBuffer.Enabled = True
        
    ElseIf cReport = "Weekly_RTC_OH" Then
        Me.Frame1.Enabled = False
        Me.Frame5.Visible = True
    
    ElseIf cReport = "CheckSeriesMonitoring" Then
        Me.Frame1.Enabled = False
        txtITGDataTo.Enabled = False
        cmdDataTo.Enabled = False
    
    ElseIf cReport = "Listing_Chart_of_Accounts" Or cReport = "Listing_Customer" _
        Or cReport = "Listing_Supplier" Or cReport = "Listing_Product" _
        Or cReport = "Listing_Salesman" Or cReport = "Listing_Fixed_Asset" _
        Or cReport = "Listing_EWT" Or cReport = "Listing_Warehouse" Then
        Me.Frame1.Enabled = False
    
    ElseIf cReport = "Voucher_Journal_Company" Then
        Frame6.Enabled = True
        Frame6.Visible = True
    
    Else
        dtITGDateFrom.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATEFROM'")
        dtITGDateTo.Text = GetValueFrTable("cValue", "SYSTEM_OPTION", "cCode = 'MTDDATETO'")
    End If
                
                
    With cboPrint
        .Clear
        .AddItem "Preview"
        .AddItem "Printer"
        .AddItem "File"
    End With
    
    cboPrint = "Preview"
End Sub

Private Sub cboPrint_Click()
    If cboPrint.Text = "File" Then
        cboFile.Enabled = True
        With cboFile
            .Clear
            .Text = "Excel"
            .AddItem "Word Document"
            .AddItem "Excel"
            .AddItem "Text File"
        End With
    Else
        cboFile.Clear
        cboFile.Enabled = False
    End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdCompFrom_Click()
On Error GoTo TheSource
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = Company
    frmITGPickList.Show vbModal
    txtITGCompFrom.Text = frmITGPickList.mCode
    
TheSource:
    Exit Sub
End Sub

Private Sub cmdCompTo_Click()
On Error GoTo TheSource
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = Company
    frmITGPickList.Show vbModal
    txtITGCompTo.Text = frmITGPickList.mCode
    
TheSource:
    Exit Sub
End Sub

Private Sub cmdDataFrom_Click()
On Error GoTo TheSource
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = cTypeReport
    frmITGPickList.Show vbModal
    If cReport = "Sales_Order_Monitoring" Or cReport = "Credit_Memo_Journal" _
        Or cReport = "Debit_Memo_Journal" Or cReport = "Deposit_Journal" _
        Or cReport = "Receipt_Journal" Or cReport = "Return_Sales_Invoice" _
        Or cReport = "WorkInProcessMonitoring" Or cReport = "Production_Order_Journal" _
        Or cReport = "Collection_Invoice" Or cReport = "Collection_OR_Number" _
        Or cReport = "Sales_Journal_Invoice" Or cReport = "Return_Sales_Customer" _
        Or cReport = "DepositJournal" Or cReport = "CheckSeriesMonitoring" Then
        txtITGDataFrom.Text = frmITGPickList.mRefNo
    Else
        txtITGDataFrom.Text = frmITGPickList.mCode
    End If
    
TheSource:
    Exit Sub
End Sub

Private Sub cmdDataTo_Click()
On Error GoTo TheSource
    If lPickListActive Then Exit Sub
    frmITGPickList.mType = cTypeReport
    frmITGPickList.Show vbModal
    If cReport = "Sales_Order_Monitoring" Or cReport = "Credit_Memo_Journal" _
        Or cReport = "Debit_Memo_Journal" Or cReport = "Deposit_Journal" _
        Or cReport = "Receipt_Journal" Or cReport = "Return_Sales_Invoice" _
        Or cReport = "WorkInProcessMonitoring" Or cReport = "Production_Order_Journal" _
        Or cReport = "Collection_Invoice" Or cReport = "Collection_OR_Number" _
        Or cReport = "Sales_Journal_Invoice" Or cReport = "Return_Sales_Customer" _
        Or cReport = "DepositJournal" Or cReport = "CheckSeriesMonitoring" Then
        txtITGDataTo.Text = frmITGPickList.mRefNo
    Else
        txtITGDataTo.Text = frmITGPickList.mCode
    End If
    
TheSource:
    Exit Sub
End Sub

Public Sub cmdExecute_Click()
    
    MousePointer = vbHourglass

    'Filter by Data
    If Len(Trim$(txtITGDataFrom)) = 0 Then
        gReportDataFrom = vbNullString
    Else
        gReportDataFrom = txtITGDataFrom.Text
    End If
    
    If Len(Trim$(txtITGDataTo)) = 0 Then
        gReportDataTo = vbNullString
    Else
        gReportDataTo = txtITGDataTo.Text
    End If
        
    'Filter by Date
    gReportDateFrom = Me.dtITGDateFrom.Text
    gReportDateTo = Me.dtITGDateTo.Text
    
    If (cReport = "Inventory_WRR_Journal_Type" Or cReport = "Inventory_DR_Journal_Type") _
        And Me.cboITGFilterBy.Text = "" Then
        MsgBox "No type to retrieve."
        MousePointer = vbDefault
        Exit Sub
    End If
    
    Select Case cReport
        Case "ARAging"
            nVarInterval = Val(Me.txtITGInterval)
        Case "ARAgingCustomer"
            nVarInterval = Val(Me.txtITGInterval)
        Case "ARAging_Market_Segment"
            nVarInterval = Val(Me.txtITGInterval)
        Case "ARAging_Division"
            nVarInterval = Val(Me.txtITGInterval)
        Case "APAging"
            nVarInterval = Val(Me.txtITGInterval)
        Case "Product_Aging"
            nVarInterval = Val(Me.txtITGInterval)
        Case "PDC_Aging"
            nVarInterval = Val(Me.txtITGInterval)
        Case "Inventory_DR_Journal_Type"
            cFilter = Me.cboITGFilterBy
        Case "Inventory_WRR_Journal_Type"
            cFilter = Me.cboITGFilterBy
        Case "PROTIA"
            nLeadTime = Me.ITGLeadTime
            nBuffer = Me.ITGBuffer
        Case "Inventory_Obsolete_Stocks"
            nVarInterval = Val(Me.txtITGInterval)
        Case "Inventory_Overaged_Stocks"
            nDaysFrom = Val(Me.ITGDaysFrom)
            nDaysTo = Val(Me.ITGDaysTo)
        Case "CheckSeriesMonitoring"
            cFilter = Me.txtITGDataFrom
        Case "Voucher_Journal_Transaction_Number"
            cFilter = Me.txtCode
        Case "Voucher_Journal_Date"
            cFilter = Me.txtCode
        Case "Voucher_Journal_Company"
            cFilter = Me.txtITGCompFrom
            cFilter1 = Me.txtITGCompTo
        Case "Schedule_Accounts_Receivable"
            cFilter = Me.txtCode
        Case "Schedule_Accounts_Payable"
            cFilter = Me.txtCode
        Case "Schedule_Cash"
            cFilter = Me.txtCode
        Case "Trial_Balance"
            cFilter = Me.cboITGFilterBy
        Case "Weekly_RTC_OH"
            If dtITGWeek1From.Text = "__/__/____" Or dtITGWeek1To.Text = "__/__/____" _
                Or dtITGWeek2From.Text = "__/__/____" Or dtITGWeek2To.Text = "__/__/____" _
                Or dtITGWeek3From.Text = "__/__/____" Or dtITGWeek3To.Text = "__/__/____" _
                Or dtITGWeek4From.Text = "__/__/____" Or dtITGWeek4To.Text = "__/__/____" _
                Or dtITGWeek5From.Text = "__/__/____" Or dtITGWeek5To.Text = "__/__/____" Then
                
                MsgBox "Week Range Incomplete."
                dtITGWeek1From.SetFocus
                MousePointer = vbDefault
                Exit Sub
            Else
                cWeek1From = Me.dtITGWeek1From.Text
                cWeek1To = Me.dtITGWeek1To.Text
                cWeek2From = Me.dtITGWeek2From.Text
                cWeek2To = Me.dtITGWeek2To.Text
                cWeek3From = Me.dtITGWeek3From.Text
                cWeek3To = Me.dtITGWeek3To.Text
                cWeek4From = Me.dtITGWeek4From.Text
                cWeek4To = Me.dtITGWeek4To.Text
                cWeek5From = Me.dtITGWeek5From.Text
                cWeek5To = Me.dtITGWeek5To.Text
            End If
    End Select

    If Trim$(cboPrint.Text) = "File" Then
        If Len(Trim$(Me.cboFile)) = 0 Then
            MsgBox "Export in what file ?", vbQuestion + vbOKOnly, "ALERT!"
            Me.cboFile.SetFocus
            Exit Sub
        Else
            cFilePreview = cboFile.Text
        End If
    End If
        
    'If Trim$(cboPrint.Text) = "Preview" Then
        'oCallReport.Report_To_View
    'ElseIf Trim$(cboPrint.Text) = "Printer" Then
    'ElseIf Trim$(cboPrint.Text) = "File" Then
    'End If
    
    MousePointer = vbDefault
    
    cmdCancel_Click
    
End Sub

Private Sub cmdDefault_Click()
    Form_Load
End Sub

Private Sub cmdPickCode_Click()
    If lPickListActive Then Exit Sub
    If cReport = "Voucher_Journal_Transaction_Number" Or cReport = "Voucher_Journal_Date" _
        Or cReport = "Schedule_Accounts_Receivable" Or cReport = "Schedule_Accounts_Payable" _
        Or cReport = "Schedule_Cash" Or cReport = "Voucher_Journal_Company" Then
        frmITGPickList.mType = Company
    Else
        frmITGPickList.mType = Client_Customer
    End If
        frmITGPickList.Show vbModal
        txtCode = frmITGPickList.mCode
        txtName = frmITGPickList.mName
    
    If Trim(txtName) <> "" Then SendKeys "{Tab}"
End Sub

Private Sub ITGBuffer_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Me.cboPrint.SetFocus
    End If
End Sub

Private Sub ITGLeadTime_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Me.ITGBuffer.SetFocus
    End If
End Sub

Private Sub ITGUpDown_Change()
    Me.txtITGInterval = ITGUpDown.Value
End Sub

Private Sub txtCode_Change()
    txtName = ""
    txtName = GetValueFrTable("cName", "CLIENT_CUSTOMER", "cCode = '" & Trim(txtCode) & "'", True)
    cString = txtCode
End Sub

Private Sub txtCode_KeyPress(KeyAscii As Integer)
    SendKeysTab KeyAscii
    If KeyAscii = 39 Then KeyAscii = 0 'Apostrophe {'}
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
